home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu453.dms / pu453.adf / extras / basic_sources / movepic.bas < prev    next >
BASIC Source File  |  1992-11-08  |  601b  |  33 lines
  1. SCREEN 1,320,256,4,1
  2. WINDOW 1,"",(0,0)-(300,240),0,1
  3. LIBRARY "extend.library"
  4. setwindow WINDOW(7)
  5. file$ = "dh2:t/kim"+CHR$(0)
  6. loadiff SADD(file$)
  7. REM $option K200
  8. DIM b%(25000)
  9. DIM t%(25000)
  10. GET (0,0)-(100,100),b%
  11. WINDOW CLOSE 1
  12. SCREEN CLOSE 1
  13. SCREEN 1,320,256,4,1
  14. WINDOW 1,"",(0,0)-(300,240),0,1
  15. FOR x = 0 TO 15
  16.     PALETTE x,x/15,x/15,x/15
  17. NEXT x
  18. CLS
  19.  
  20. WHILE INKEY$ = ""
  21.     
  22.     waittof
  23.     x = MOUSE(1) : y = MOUSE(2) : k = MOUSE(0)
  24.     IF k = 0 THEN
  25.         PUT (x1,y1),t%,PSET
  26.     END IF
  27.     GET (x,y)-(x+100,y+100),t%
  28.     PUT (x,y),b%,PSET
  29.     WHILE MOUSE(1) = x AND MOUSE(2) = y AND MOUSE(0) = k : WEND
  30.     x1 = x : y1 = y 
  31. WEND
  32.  
  33.